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1 
IND a BASIC frase 
e: -B32 


001 0 MODULE BASSSUNUIND | 

008 [DENT = "1-007" ile: BASUNWIND.B 

004 1 BEGIN 

; leuuenaeenenncteneenneeeneenecerecteenrereeererteerennenerneteenenereneentes 
'e 


® 

B 

it COPYRIGHT (c) 1978, 1980. 1982, 1984 BY * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
is ALL RIGHTS RESERVED. . 
4 x 
it THIS SOFTWARE Is HED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ONLY IN DANCE WITH. THE TERMS OF SUCH. LICENSE AND WITH THE 
COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 

i BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED, . 
we 

® 

& 

ae 

® 

® 

® 

® 

® 

* 


is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:: onmpokat bi NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1; 
'® 
1 Vee ee eee RRA AAAAAAAAAAAAAAAAAAAAAAAAAA AAA AAA eRe eee 
1 
1 
1 
1 lee 
' ! FACILITY: BASIC-PLUS-2 Frame Support 
! !' ABSTRACT: 
1 These routines set up and tear down frames for OAS TE SPLUE 2. 
: Frames are used for main routines, external funct 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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external subroutines, internal functions (both BERS. one DEF *s) 
internal subroutines (GOSUBs) and condition handlers. 
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PUP PUP ES BS BB BBE EE WWI NAINA NAIA PON NINININNDY 2 9 Ot Oo 


00 ! 
ones ' ENVIRONMENT: VAX=-11 user mode 
0043 i AUTHOR: John Sauter, CREATION DATE: 05-JUN-1979 
0045 i MODIFIED BY: 

p68 ! 
one ! 1-001 - Original. 

048 ! 1-002 - Watch out for non-dynamic nenstgugorery st sicin Ss. 

Bnee ! can happen if a string is FIELDed $ 0 NBaz1979 
Bnet ' 1-003 aT sherg. yy 1/0 0 active in the frame being An wet POP 
BRe¢ i 1-004 = Allow more ethan. one CCB to be active in a frame. 

05 ! JBS 25-JU 

bee ! 1-005 - Corcogs an hts 15 in edit 004 that caused a loop. 

056 i 1-006 = In the moe of condition handlers, we must search through 
0057 : the stack to find the number of temp strings, since the 
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18-5 Sep-1984 
14-Sep-19 1: BASRTL.SRCJBASUNWIND. 8 2:1 
' tee. may be either a DEF or a DEF*, so we cgraes use the 
i ase R10 to find the frame. JBS 11-SEP-19 
i 1-007 - noes edit 006 cleverer to allow for ON ERROR GO BACK: the 
root frame must match in R10 and R11. JBS 12-SEP-1979 
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SWITCHES: 
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SWITCHES ADDRESSING _MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


: LINKAGES: 


REQUIRE ‘RTLIN:OTSLNK'; 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSSUNWIND : NOVALUE, 


BASSSUNWIND_10 : NOVALUE; 


INCLUDE FILES: 


REQUIRE "RTLIN:RTLPSECT’; 
REQUIRE ‘RTLIN:BASFRAME'; 
REQUIRE *RTLIN:BASINARG'; 
REQU'RE “RTLML:OTSISB’; 
LIBRARY ‘RTLSTARLE'; 


| MACROS: 

: NONE 

i EQUATED SYMBOLS: 

; NONE 

i PSECTS: 
DECLARE_PSECTS (BAS); 
| OWN STORAGE: 

: NONE 

i EXTERNAL REFERENCES: 
EXTERNAL ROUTINE 


BAS$SSTOP : NOVALUE, 
STRSFREE1_DX, 


Define OTS Linkages 


purge a frame 
purge a frame's 1/0 


Macros for defining psects 
Define frame structure 
Define argument List 

ISB symbols 

System symbols 


Declare psects for BASS facility 


signals error | 
deallocate a string 
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eA SSUNWIND 1$-sen-1984 91:96:69 AX-11 ot 45 v4.0- 
! pur 
! The 


GLOBAL ROUTINE BASSSUNWIND ( ge a frame 
FMP frame being purged 


) : NOVALUE = 


lee 


i FUNCTIONAL DESCRIPTION: 

Purge a BASIC=PLUS-2 frame. This is used when an UNWIND 
is done through a frame. It frees all of the strings 
allocated in the frame. 

FORMAL PARAMETERS: 

FMP.ra.v The frame being purged. 

IMPLICIT OUTPUTS: 

NONE 

ROUTINE VALUE: 

NONE 

COMPLETION CODES: 

NONE 

SIDE EFFECTS: 


Deallocates the heap storage local to this 
frame. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
$ BEGIN 

2 MAP 

§ FMP : REF BLOCK C, BYTE) FIELD (BSFSFCD); 


CAL 
ARGLIST : REF BLOCK CO, BYTE] FIELD (BASSINIT_ARGS), 
BSFSA_TEMP_STG : REF VECTOR; 


'¢ 


i Dispatch on frame np Only if the frame has strings 
allocated do we deallocate them, 


CASE FMP CBSFS$B_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 


CBSF Sk PROC_MAIN, BSFSK_PROC_SUB, BSFSK_PROC_EXTF, BSFSK_PROC_DEF, BSFSK_PROC_DEFS) : 


'¢ 
! Recover the parameter to the frame setup routine. This is 
! used to remember how many string descriptors there are, and 
! where they are allocated. 


ka ka ni a a aa ai a a ti i ak at tk at st a = 2 2a 1 9 4 9 9 4) so 

oO OOO O OW 00009 00 09 00 0 09 9 SII NN SIN IN NNSA AAA AAAAAAMMNIIIVIVIVIVIVIS SEL EEE AS 
So CSS LoS CSS SSSR AS ES SSNS ARAN SS SSUS APO IS SSS SSeS SES 
ee ee ee ee ee ee ee ee ed ed 
me a ek ed ed ed dd 


NO DEE Q’EQD DA ann & BB EEE EB ANNAN NNW NIPPON 2 SS SS 


—@ 


rc 


——_—_—_——_—__-___ - ae — - ee _ _—_ — — — 
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1s ARGLIST = .FMP CBSFSA_INIT_ARG]; 

; Recover the pointer to temporary storage. 

- BSFSA_TEMP_STG = .FMP CBSFSA_BASE_R9); 
; Deallocate any temporary string storage. 


INCR COUNTER FROM 1 TO .ARGLIST CBASSL_IN.NO_TST]_0 
STRSFREE1_DX (BSFSA_TEMP_STG L(.COONTER = 1)#2]); 


'¢ 
Deallocate local dynamic strings. Watch out for non-dynamic strings. 


INCR COUNTER FROM 1 TO .ARGLIST CBAS$W_IN_NO_DST] DO 
BEGIN 
LOCAL 

DESC_ADDR : REF BLOCK (8, BYTE); 

DESC_ADDR = .FMP CBSFSA_STR_DESC] + ((. COUNTER = 1)*(2*ZUPVAL)); 
IF (.DESC_ADDR COSCS$B_CLASS] EQL DSCSK_CLASS_D) THEN STRSFREE1_DX (.DESC_ADDR); 
END 

END; 

CBSFSK_PROC_ONER] : 
BEGIN 


WAM AIA PINININININININID 4 2 2 OS “COO OCOOOCOCO 


OCAL 
OLD FMP : REF BLOCK C, BYTE] FIELD (BSFSFCD), 
SEARCH_DONE ; 


AUF WN 0 OD NOUS WN $9 ODN UE WN O OD NOAU EWN" OOONOUE wT 


PIPIPIPONINININININININIPUPUPSPIPO NPN Popo fonononofnopofnonony 
PIPIPINININND 4 9 9 9 9 | $$ “DOOD OOSOOSCOSSC OC OOOO OO0 OO ODDO WOWWOOO VINA 


ee a a ia a a a a a = = 8 a = 2 2 2 ss 2 2 ss 1 
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3 

3 '¢ 

: Recover the number of string temporaries allocated based on R9. 

4 } SEARCH_DONE = 0; 

. OLD_FMP = .FMP; 

4 WHILE ( NOT .SEARCH_DONE) DO 

ri H BEGIN 

14 3 IF (.OLD_FMP EQLA 0) THEN BASSSSTOP (BASS$K_PROLOSSOR); 
268 1 IF (.OLD_FMP CBSFSA_HANDLER] NEQA BASSHANDLER) 
$24 ¢ OLD_FMP = .OLD_FMP CBSFSA_SAVED_FP] 

2g : ELSE 

24 3 CASE -OLD_FHP CBSF$B_PROC_CODE] FROM BSFSK_PROC_MAIN TO BSFSK_PROC_IOL OF 
56 8 


woo a 


5 


| 
| BASSSUNWIND bese -1984 01:26:4 AX-11 Bliss-32 V4.0-74 Pa 7 
1/1 7 127808- 132 ot 6:4 YBASRTL SRE BASUNWIND.852;1 _ (3) 
$ 3 : 4 : CBSFSK_PROC_MAIN, BSFSK_PROC_SUB, BSFSK_PROC_EXTF, BSFSK_PROC_DEF, BSFSK_PROC_DEFS] 
: 259 1231 3 IF ((.FMP CBSFSA_BASE_R11] EQLA .OLD_FMP [BSFS$A_BASE_R11]) AND ' 
; re : ¢ 2 (.FMP LBSFSA_BASE_R10J EQLA .OLD_FMP [BSFSA_BASE_R10])) 
3 $¢ ; 3 ? SEARCH_DONE = 1 
; 64 1236 4 OLD_FMP = .OLD_FMP CBSFSA_SAVED_FPI; 
; 66 1238 4 CBSFSK_PROC_GOSB, BSFSK_PROC_ONER, BSFSK_PROC_IOL] : 
; 67 3 ‘ OLO_FMP™= .OLD_FMP CBSFSA_SAVED_FP; 
: 269 1241 4 COUTRANGE] : 
: 70 1 tg 4 BASSSSTOP (BASS$K_PROLOSSOR); 
3 71 1245 4 TES; 
3 Lf 1244 & 
; e7 1245 END; 
3 74 1 re 
s 75 124 ARGLIST = .OLD_FMP CBSFSA_INIT_ARG); 
; 16 48 BSFSA_TEMP_STG = .FMP CBSFSA_BASE_R9J; 
: 78 1389 INCR COUNTER FROM 1 TO .ARGLIST CBAS$L_IN_NO_TST] DO 
: 444 1383 STRSFREE1_DX (BSFSA_TEMP_STG C(.COONTER = 1)*2)); 
3; 281 1 2g END; 
; one 1254 
; 28 1255 CBSFS$K_PROC_GOSB, BSFSK_PROC_IOL] : 
3: 284 1256 BEGIN 
; 285 1257 
; 286 1258 END; 
3; 287 1259 
; 288 1260 COUTRANGE) : 
3; 289 1261 BASSSSTOP (BAS$K_PROLOSSOR) ; 
3 1¢6¢ ES; 
: 91 126 
3 4 1264 '¢ 
3 2 1265 ! If the current 1/0 in progress was issued by this frame, 
3 294 1566 ! POP it. 
3 5 126 !- 
; 96 1268 BASSSUNWIND_IO (.FMP); 
; 297 1269 RETURN; 
; 298 1270 1 END; ' of BASSSUNWIND 


TITLE BASSSUNWIND 
I \1=007\ 

.EXTRN BASSSSTOP, STRSFREE1_DX 

EXTRN BASSHANDLER, BAS$$CB POP 

“EXTRN OTS$$A_CUR_LUB, BASSR_RETWITGOS 
“EXTRN BASSK_PROLOSSOR 

.PSECT _BASSCODE,NOWRT, SHR, PIC,2 


FC 00000 -ENTRY BASSSUNWIND, Save R2,R3,.R4,R5,R6,R7,R8 : 1115 
58 000000006 00 9E 00009 MOVAB STRSFREE1_DX, R8 : 
57 000000006 00 9€ 00009 MOVAB BASSSSTOP? R? : 
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9019 


50 


FO 
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07 
0019 
002C 


F4 
FO 
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000000006 


06 =A 
SM 
si 
00G 8F 
' 
7 
EC OA 
5 
08 
01 
F8 A540 
01 
30 AG 
28 AG 
‘ 
1 
EO 8342 
08 
03 Ad 
05 
‘ 
fe 
3 
; 
006 BF 
3 
; 
E5 a 
001 
0019 
00G 8F 
01 
“i 
i 
FO OA 
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om 
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MIMD SMMNWO & SWIG WPM = LOW "O—-f£OO-D > 
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118: 


A 
128: 


Be 91:88:08 


MOVL 
CASEB 
«WORD 


AX-11 Blis 


FMP, R3 
97 (R3). “1, a7 


WBASSK_PROLOSSOR, -(SP) 
ai. BASSSSTOP 


-40(R3), ARGLIST 
-20(R3). BSFSA_TEMP_STG 
COUNTER 


#1, COUNTER, RO 

- (BSFSA.TEMP_S1G)CROJ 
(ARGLIST), COUNTER, 3$ 
(ARGLIST). R6 

OUNTER 


@-32(R3)CCOUNTER], DESC_ADDR 
#8, DESC_ADD 
3(DESC_ABDR), #2 


DESC_ADDR 

#1, STRSFREE1_Dx 
COUNTER, 5$ 

SEARCH DONE 

R3, OLD _FMP 

SEARCH BONE, 14$ 

OLD_FMP 


#BASSK_PROLOSSOR, -(SP) 
STOP 


#1, BASSS 
BASSHANDLER, RO 
COLD_FAP » RO 

13$ 

-27(OLD_FMP), #1, #7 
12$-11$7- 

12$-11$.- 

1 $-11$,- 

12$-11$.- 

12$-11$.- 

13$-11$.- 

13$-11$.- 

13$-11$ 
#BAS$K_PROLOSSOR, -(SP) 
a, BASSSSTOP 

71g (R3). -12(OLD_FMP) 
-16(R3), -16(OLD_FMP) 
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1163 


1242 


1231 
1232 


50 


FO 


; Routine Size: 233 bytes, 


; 299 1271 #1 


52 


8 
2 


0000v CF 


Routine Base: 


1 
BF of 9m 
ac $B HEE os. 
dB oA 8 3 148: 
eS Bias 
se 11 OCF 
1 78 00001 15$: 
F8 ase 44 sit 
30 AG Fg doObe 193: 
gt Be Sel 7 
04 O00E8 


_BASSCODE + 0000 


Liss-32 V4.0-7 


Ibsen 1944 P88ite  EAsateeSaESeasuMvino 682; 1 


13$ 
4g SEARCH_ DONE 


12(OLD_FMP), OLD_FMP 
-40(0 D. FMP), ARGLIST 
20(R3 (R3) > BSFSA_TEMP_STG 


#1, 

~8 ope A TEMP. “3160 CR03 
#1, STRSFRE 

4 tARGL ISTO” eo TER, 15$ 


R 
#1, BASSSUNWIND_10 
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80 1 mat 9 88:82 BASRTL. RC IBASUNWIND .B 2;1 
GLOBAL ROUTINE BASSSUNWIND_I0 ( H purge a frame's 1/0 
P ! The frame being purged 
) : NOVALUE = 


> 
FUNCTIONAL DESCRIPTION: 


Purge a frame's 1/0. This is used when an UNWIND is done 
through a frame and when a frame is restarted using RESUME. 
r 


Terminates 1/0 in this frame. 


Fox 


ooo 
LES 
BP BAF HAS AWAAIINIPINPININININININDINIDS 998 8 0 Ot 


BEGIN 


Pp 
FMP : REF BLOCK C, BYTE) FIELD (BSFSFCD); 


05 '¢ 
' 
$9 
08 ' 
09 $ 
19 + } It clears any 1/0 that may be in progress in this frame. 
i § $ FORMAL PARAMETERS: 
1 85 FMP.ra.v The frame being purged. 
1 Hd i IMPLICIT OUTPUTS: 
1 88 ' 
18 89 ' NONE 
19 90 ‘ 
$9 4 ROUTINE VALUE: 
é 9 i NONE 
94 ‘ 
4 95 ' COMPLETION CODES: 
5 96 ! 
26 97 $ NONE 
st 98 : 
8 99 ' SIDE EFFECTS: 
i 00 4 
0 ! 
1 : 
' 
35 
34 
35 
3$ 
36 
3 


cm ak a ed ad od = 8 


08 
09 
9 10 GLOBAL REGISTER 
0 1 CCB = K_CCB_REG : REF BLOCK C, BYTE); 
é i LOCAL 
14 POPPING_DONE ; 
¢ 13 DO 
46 13 BEGIN 
18 POPPING DONE = 0; 
48 19 CCB = .OTSS$A_CUR_LUB; 
50 1 IF (.CCB NEQA 0) 
31 é THEN 
3g 4 IF (.CCB CISBSA_USER_FP] EQLA .FMP) 
54 6 THEN 
55 6 BEGIN 
28 BAS$$(B_POP (); 
5 8 POPPING-DONE = 1; 


i 


_s 
BASSSUNUIND 1e=8eh=1984 11:56:46 EBASRTL SRETBASUNWIND.B92;1 


$ OR = 
133) ia 
1 : § WHILE (.POPPING_DONE) ; 
1 
1335 


RETURN; 
END; ! of BASSSUNWIND_10 


0804 4 -ENTRY BASSSUNWIND_IO, Save R2,R11 
33 D4 00002 1$: CLRL POPPING_DONE 
58 000000006 0 0 0004 MOVL TS$$A_CUR_LUB, CCB 
7-3 0008 BEQL 
06 AC FF4C B D1 000 CMPL -180(CCB), FMP 
63 1 Bat BNEQ 2s 
00000000G 00 16 0001 JSB BASS$CB_POP 
52 g DO 00018 MOVL #1, POPPING DONE 
é1 2 £8 OOO1E 2S: BLBS § POPPING_DONE, 1$ 
04 00021 RET 
; Routine Size: 34 bytes, Routine Base: _BASSCODE + O0E9 
5 1336 1 
66 1337 1 END 
7 1336 1 
8 1339 O ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
_BASSCODE 267 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
coccocce Symbols -------- Pages Processing 
File Total Loaded Percent Mapped Time 
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Wron 
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vee “ke Sep-tobe $1:Seiee — EBASRTLoSRESBASUNVINO-B92;1 seek 


COMMAND QUALIFIERS 
FLESCH CEG? JELD, INITIAL OPTIMIZE) /NOTRACE/LIS=LIS$:BASUNWIND/0BJ=0BJ$:BASUNWIND MSRC$:BASUNWIND/UPDATE=(ENHS: BASUNWIND 


i 7 
Ss i 26 gt 4 + 0 data bytes 


lee g Time: 

Lines/CPU Min: th 
Lexemes/CPU-Min: 321 
Memor Tet Used: 140 aa 
Compilation Complete 


Ve 


ENT CORPORATION 
ND PROPRIETARY 
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